Browse class structure:
~~~~~~~~~~~~~~~~~~~~~~~~
create class Browse from Task
  export:
  var MoreRecords      //true
  var MaskFeature      //false
  var CanShowSkip      //false
  var CanEdit          //true
  var CanAppend        //true
  var CanSwap          //true
  var CanSkip          //true
  var FormActive       //false
  var CanMoveCursor    //true
  var Direction        //K_RIGHT
  var QuickEdit        //true
  var SetConfirm       //Set(_SET_CONFIRM)
  var AddMsg           //""
  var InsBlock         //{|o|nil}
  var DelBlock         //{|o|nil}
  var PreSkip          //nil
  var PostSkip         //nil
  var InfoBlock        //{|o|nil}
  var TestVRecord      //{|o,g|true}
  var GetList          //{}
  var DoGetList        //{}
  var DelGet           //{}
  var DelDoGet         //{}
  var Tb               //nil
  var Freeze           //0
  var FormTop          //1
  var Form             //(object of Window)
  var SetUp            //false
  method New=BrowseNew           //o:New() --> self
  method Init=BrowseInit         //o:Init(Name,R,C,Rs,Cs,Clr,Shd) --> true
  method GoodInit=BrowseGoodInit //o:GoodInit(Name,R,C,Rs,Cs,CurSize,Clr,Shd) --> true
  method AddBlock=BrowseAddBlock //o:AddBlock(LongNm,ShortNm,VarNm,Block,DoGet,Pict,When,Valid) --> true
  method AddGet=BrowseAddGet     //o:AddGet(Get,DoGet) --> true
  method PostInit=BrowsePostInit //o:PostInit() --> true
  method DoGet=BrowseDoGet       //o:DoGet() --> true
  method VPaint=BrowseVPaint     //o:VPaint() --> true
  method SwapForm=BrowseSwapForm //o:SwapForm() --> true
  method VProcess=BrowseVProcess //o:VProcess() --> true
  method Process=BrowseProcess   //o:Process() --> true
  method DoForm=BrowseDoForm     //o:DoForm() --> true
  method DoBrowse=BrowseDoBrowse //o:DoBrowse() --> true
  method FormPaint=BrowseFormPaint  //o:FormPaint() --> true
  method MaskPaint=BrowseMaskPaint  //o:MaskPaint() --> true
  endclass